OleAutoObj and "Object Text"

Mathias Mamsch - Fri Jul 30 06:01:55 EDT 2010

Without example code, it is hard to say why it fails, but did you maybe forget to cast to the "Object Text" to string ?
 

// not like this!
     // olePut (objShape, "Text", obj."Object Text" )
 
     // cast to string, by appending an empty string.
     olePut(objShape, "Text", obj."Object Text" "")

Maybe it helps. Regards, Mathias

Mathias Mamsch, IT-QBase GmbH, Consultant for Requirement Engineering and D00RS

meherts - Fri Jul 30 09:37:21 EDT 2010

Hello Mathias!,

So, let me explain what I'm trying to do. Firstly, here's the function I use to grab an individual shape by name:
 

OleAutoObj getShape(string name){
        //Create variables
        string str = ""
        int flag = 0
        int i = 1
 
        //Grab shapes
        oleGet(objSheet, cPropertyShapes, objShapes)
        if(null objShapes) {print "No shapes collection found ...\n"; halt;}
 
        //Create argument
        OleAutoArgs autoArgs = create
        while(flag = 0){
                put(autoArgs, i)
 
                //Get individual shape
                oleMethod(objShapes, cMethodItem, autoArgs, objShape)
                if(null objShape){ print "Cannot find shape ...\n"; halt;}
 
                //Get name
                oleGet(objShape, cPropertyName, str)
                if(name == str){ flag = 1;}
                else {i = i + 1;}
 
                //Clear args
                clear(autoArgs)
        }
        //Return shape object
        return objShape
}

Now, that function works perfectly. So, here's the code that's calling it:

OleAutoObj objShape = getShape("MyPicture")

So, now I have an auto object, and I want to take this object and put it into the current object's text. Essentially, I want this picture to be imported into DOORS.

Need more information? By the way, thank you for taking the time to help me Mathias, it's much appreciated!

Regards,
Mark

meherts - Fri Jul 30 09:37:21 EDT 2010

Hello Mathias!,

So, let me explain what I'm trying to do. Firstly, here's the function I use to grab an individual shape by name:
 

OleAutoObj getShape(string name){
        //Create variables
        string str = ""
        int flag = 0
        int i = 1
 
        //Grab shapes
        oleGet(objSheet, cPropertyShapes, objShapes)
        if(null objShapes) {print "No shapes collection found ...\n"; halt;}
 
        //Create argument
        OleAutoArgs autoArgs = create
        while(flag = 0){
                put(autoArgs, i)
 
                //Get individual shape
                oleMethod(objShapes, cMethodItem, autoArgs, objShape)
                if(null objShape){ print "Cannot find shape ...\n"; halt;}
 
                //Get name
                oleGet(objShape, cPropertyName, str)
                if(name == str){ flag = 1;}
                else {i = i + 1;}
 
                //Clear args
                clear(autoArgs)
        }
        //Return shape object
        return objShape
}

Now, that function works perfectly. So, here's the code that's calling it:

OleAutoObj objShape = getShape("MyPicture")

So, now I have an auto object, and I want to take this object and put it into the current object's text. Essentially, I want this picture to be imported into DOORS.

Need more information? By the way, thank you for taking the time to help me Mathias, it's much appreciated!

Regards,
Mark

Mathias Mamsch - Sun Aug 01 05:57:24 EDT 2010

You just need to use the "Copy" method on the shape object and do an olePaste(Attr_) to the attribute you want to import into. I don't know if there is a way without using the clipboard. You can convert an EmbeddedOleObject into an OleAutoObj but I think it is not possible the other way around. You can also use this approach to create OLE objects from scratch, for example an excel chart or a visio diagram. This is most useful for generating reports in DOORS.

This code will import (copy/paste) the first picture in the currently active excel sheet into the Object Text of the current Object.

Regards, Mathias
 

OleAutoObj objEx = oleGetAutoObject("Excel.Application") 
 
if (null objEx) { print "Please open Excel!"; halt }
 
OleAutoObj objSheet = null 
 
oleGet(objEx, "ActiveSheet", objSheet)
if (null objEx) { print "Cannot find sheet. Please open a workbook!"; halt }
 
string s
oleGet(objSheet, "Name", s) 
print "Worksheet Name: " s "\n"
 
OleAutoObj objShapes
oleGet(objSheet, "Shapes", objShapes)
if (null objShapes) { print "That is weird. No shapes collection found ..."; halt }
 
OleAutoArgs args = create()
put(args, 1) 
 
OleAutoObj objShape
oleMethod(objShapes, "Item", args, objShape) 
if (null objShape) { print "Cannot find Shape. Please insert a clipart to the active worksheet!"; halt }
 
oleGet(objShape, "Name", s) 
print "Picture Name: " s "\n"
 
print oleMethod(objShape, "Copy")
olePaste (current Object)."Object Text"

Mathias Mamsch, IT-QBase GmbH, Consultant for Requirement Engineering and D00RS

Mathias Mamsch - Sun Aug 01 05:57:24 EDT 2010

You just need to use the "Copy" method on the shape object and do an olePaste(Attr_) to the attribute you want to import into. I don't know if there is a way without using the clipboard. You can convert an EmbeddedOleObject into an OleAutoObj but I think it is not possible the other way around. You can also use this approach to create OLE objects from scratch, for example an excel chart or a visio diagram. This is most useful for generating reports in DOORS.

This code will import (copy/paste) the first picture in the currently active excel sheet into the Object Text of the current Object.

Regards, Mathias
 

OleAutoObj objEx = oleGetAutoObject("Excel.Application") 
 
if (null objEx) { print "Please open Excel!"; halt }
 
OleAutoObj objSheet = null 
 
oleGet(objEx, "ActiveSheet", objSheet)
if (null objEx) { print "Cannot find sheet. Please open a workbook!"; halt }
 
string s
oleGet(objSheet, "Name", s) 
print "Worksheet Name: " s "\n"
 
OleAutoObj objShapes
oleGet(objSheet, "Shapes", objShapes)
if (null objShapes) { print "That is weird. No shapes collection found ..."; halt }
 
OleAutoArgs args = create()
put(args, 1) 
 
OleAutoObj objShape
oleMethod(objShapes, "Item", args, objShape) 
if (null objShape) { print "Cannot find Shape. Please insert a clipart to the active worksheet!"; halt }
 
oleGet(objShape, "Name", s) 
print "Picture Name: " s "\n"
 
print oleMethod(objShape, "Copy")
olePaste (current Object)."Object Text"

Mathias Mamsch, IT-QBase GmbH, Consultant for Requirement Engineering and D00RS

SystemAdmin - Fri Sep 09 05:41:47 EDT 2011
Hi Mathias,

I am new in Door I want copy text from excel file and paste into Object Text of the current Object
same like the following example

Please give me DXL code

OurGuest - Fri Sep 09 06:17:05 EDT 2011
Mathias Mamsch

Looks like here is a call for you speech again. go for it.